home *** CD-ROM | disk | FTP | other *** search
/ b'mac ROM 1996 #6-7 / BMAC-VOL6-7-1996-06-07.ISO / BMAC-VOL6-7-1996-06-07.ISO / Start b'mac ROM / bmacMovie / 00028.ls < prev    next >
Encoding:
Text File  |  1996-04-30  |  325 b   |  14 lines
  1. on kchuu
  2.   set casnum to clickOn()
  3.   set castorg to the castNum of sprite casnum
  4.   repeat while the stillDown
  5.     cursor(200)
  6.     puppetSprite(casnum, 1)
  7.     set the castNum of sprite casnum to castorg + 1
  8.     updateStage()
  9.   end repeat
  10.   cursor(0)
  11.   set the castNum of sprite casnum to castorg
  12.   puppetSprite(casnum, 0)
  13. end
  14.